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MTHSHFLOOR - Greatest integer routine for H Teatin 16-SEP-1984 01:36: AX/VMS Macro V04-00 Page 1 
1-002 : ° . gro E 1 obe 94:38:08 MTHRTL.SRCIJMTHHFLOOR.MAR; 1 . (1) | 
| 1 -TITLE MTHSHFLOOR - Greatest incoper routine for H floating 
¢ »IDENT /1-002/ ; File: MTHHFLOOR.MAR EDIT: RH1002 
| 900 ¢ S peudneanntoonceseosqouenneoseoecnqnsensoneceoecesqnesonseseesscenooeonseeses | 
3* ® 
00 5 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
00 8 ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3006 1 :* ALL RIGHTS RESERVED. 
0000 11 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
44 1% 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 15. ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
444 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0000 18 + TRANSFERRED. ° 
* 
0000 18 * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 a1 i* CORPORATION. . 
0000 ¢ ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED 8Y DIGITAL. * 
000038 is : 
0000 $8 ITTIITITIITIITIT ITIL ITIL T LTT III TI LITT tititii titi titi ii titi titi titty 
0000 3 
ann) h 
9000 50 : FACILITY: Math Library 
9000 3 ; ABSTRACT: 
0000 $e ; This routine finds the largest integer less than the input 
0000 7s value, i.e. it truncates toward negative infinity 
4464 $$ 3 for data type H_floating. 
0000 38 : ENVIRONMENT: User Mode, AST Reentrant 
$83 
444 $ : Author: John Sauter, Creation date: 27-JUL-1979 
2099 “8 > MODIFIED BY: 
ta 45 ; VERSION 00 | 
0000 $6 : 1-001 - Original, from MTHSGFLOOR. 
0000 47 ; 1-002 - CALL entry was modified to return the result in the address | 
44 48 ; specified by the leftmost argument in order to conform to the | 
000 49 ; calling standard for return values Larger than 64 bits. The 
4 29 3 original version returned the results in RO-R3. 
0000 13 JSB entry was modify to correct typos: The last two operands 
0000 26 3 of the ERMODH instruction and the operand of the TSTH instruction 
000 : were changed from R2 to R4, | 
000 4; Comments were changed to eliminate an erroneous calling sequence. 
000 $3 RNH 9-DEC-1980 
| 
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MTHSHFLOOR - Greatest integer routine for H_floatin 16-SEP-19 6: AX/VMS Macro V04-00 P 
1-002 DECLARATIONS» gre ee robe S1isesks FATANTS SaeSATHGPLOOR.mar;1 2% (3) 
38 -SBTTL DECLARATIONS 
§ 3; INCLUDE FILES: 
60 ; 
61 
0 86 3 
Bp o7 ; EXTERNAL DECLARATIONS: 
33 65 -DSABL GBL : Prevent yndec loved 
96 ; symbols from being 
38 ? ; automatically global. 
80 63 3; MACROS: 
0 0; 
8 00 71 
000 if: 3 
Bop 73 ; EQUATED SYMBOLS: 
00 74; 
0000 75 
0000 6 3 
B08 77 ; OWN STORAGE: 
000 4 ; 
0000 7 
4444 80 ; 
464 + ; PSECT DECLARATIONS: 
00000000 He -PSECT _MTHSCODE PIC, USR, CON, REL, LCL, SHR, - 
9000 84 EXE, RD, NOWRT. LONG 
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MTHSHFLOOR - Greatest integer routine for H Ftoatin 16-SEP-1984 01:36: AX/VMS Macro v04-00 P 
1-002 MTHSHFLOOR - greatest integer H_floatin ase} 91 36:9) MTHRTL.SRCJMTHHFLOOR.MAR; 1 seg 
0 7 pe -SBTTL MTHSHFLOOR = greatest integer H_floating routine 
: ; FUNCTIONAL DESCRIPTION: 
91 : This routine finds the floor by truncating, and then if the 
35 : input value is negative and not an integer subtracting 1. 
99 34 ; CALLING SEQUENCE: 
BB 88 ; CALL MTHSHFLOOR (result_int.wh.r, input.rh.r) 
900 98 ; INPUT PARAMETERS: 
00000008 0000 100 ° input_addr = 8 ; address of the H_floating number 
0000 101 - ; to get the floor of . 
000 19 H 
0000 103 ; IMPLICIT INPUTS: 
0000 104 ; 
0000 105 ; NONE 
0000 196 ; 
0000 107 ; OUTPUT PARAMETERS: 
0000 108; 
00000004 0000 109 output_addr = 4 
0000 110; 
0000 111 ; IMPLICIT OUTPUTS: 
0000 6 3 
0000 113; NONE 
0000 114; 
0000 115 ; FUNCTION VALUE: 
0000 118 ; COMPLETION CCOES: 
0000 117; 
0000 118; NONE 
000 119; 
000 120 ; SIDE EFFECTS: 
000 1] ; 
0000 1 ¢ ; NONE 
4 123 ; 
000 124 ;-- 
000 125 
OOFC 44 : 8 ENTRY MTHSHFLOOR, “M<R2, R3, R4. RS, R6, R7> ; entry point 
50 08 BC 70FD 2006 128 MOVH @input_addr(AP), RO ; RO/R3 = input argument 
54 54 08 00 0 74FD 4 129 EMODH RO, #0, #1, R4, RS 3 R4/R? = fraction_part (arg) 
50 54 62FD O18 ! 9 SUBH2 R4, RO ; RO/R3 = integer_part (arg 
09 14 bit ' ¢ BGTR 40$ ; if > 0, have correct answer 
54 73FD 14 134 TSTH R4 : look at fraction part 
06 «18 Sts 135 BGEQ 40$ : if > 0 then 0 < input < 1 and 
19 «#1 § ; .we have the correct answer 
019 #1 :; if = 0 then input was integer 
Bi3 } 3 3 and we have correct answer 
50 08 62FD 019 140 SUBH2 #1,R0 ; subtract 1 from truncated 
1 12) i negative non-integer 
04 BC 50 70FD 1D 128 40$ MOVH RO, @output_addr (AP) 3 move result to output address 
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04 0022 144 RET 
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is -SBTTL MTHSHFLOOR_R7 = greatest integer H_floating routine 
; FUNCTIONAL DESCRIPTION: 

This is the JSB entry point to MTHSHFLOOR. 
CALLING SEQUENCE: 

JSB MTHSHFLOOR_R7 
INPUT PARAMETERS: 

RO through R3 contain the input value 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO through R3 contain the result value 
IMPLICIT OUTPUTS: 

NONE 


FUNCTION VALUE: 
COMPLETION CODES: 
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AANA AAAI. IAI AI GPDIPYNIPYIPIPYPPYINIPIPIPINIPOPOPYPIPUPIPIPOPUPYPIPYIPIPPOPOPOPOPOPUNIPUPOPIPUPUPUPUNYD O08 
YS FS OW OUI M BW WWII NWI WWIII AAAI NII NAIAAAI IAAI AAAI WINANS 
PRD et 9 9 4 ss > 2s — ss 2 ts ss a 2s a as Ls 2 2 a ss 
SOOOOOOOWO OO OW 00 000009 09 09 69 09 SI NINN NN SNIP AA AA AAAAA MUNIN 
OOO NOUN EWN (OOO NAULS WD OS OONOAOU EWR) O OONOA UE WWI OOONOUE WR) OWOoOno 
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NONE 
SIDE EFFECTS: 
NONE 
MTHSHFLOOR_R7:: 3 entry point 
54 54 08 00 50 74FD EMODH RO, #0, #1, R4, R4 3 R4/R7 = fraction_part fore) 
50 54 62F0 SUBH2 R4, RO ; RO/R3 = integer_part (arg 
9 14 BGTR 40$ :; if > 0, have correct answer 
54 73FD TSTH R4 ; look at fraction part 
04 «18 BGEQ 40$ ; if > 0 then 0 < input < 1 and 
; .we have the correct answer 
: if = 0 then input was integer 
3; and we have correct answer 
50 08 62FD SUBH2 #1,R0 3 subtract 1 from truncated 
3 3 negative non-integer 
05 ' 40$: RSB 
0 - END 
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INPUT_ADDR = 00000 

MTHSHFLOOR 90 RG gt 

MTNSHELOOR_R7 0 RG 1 
TPUT_ADDR == 004 
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! ; Psect synopsis ; 


PSECT name Allocation PSECT No. Attributes 
_ Os . 0000000 5-3 0(¢ Q.) NOPIC USR CON ABS LCL nose NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE OOOO03A (¢ 5 +8 Vel PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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H ; Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.13 00:00:01.98 
pennens processing 128 00:00:00.51 00:00:07.16 
s 1 72 00:00:00.54 00:00:01.82 
Synbol table sort 0 00:00:00.00 00:00: +80 00 
Pass 50 88:80:00: 60 00:00:02.05 
Symbol table output § 00:00: 3-88 00:00:00.01 
Psect synopsis output 00:00:00.0 00:00:00.02 
sooner eterense output 00:00:00.00 00:00:00.00 
Assembler run totals 287 00:00:01.69 00:00:13.07 


The working set Limit was 900 pages. 

2169 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 2 Local symbols. 
201 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S255SDUA28:(SYSLIBJSTARLET.MLB;20 0 ittststtttstStS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHF LOOR/OBJ=OBJ$:MTHHFLOOR MSRC$:MTHHF LOOR/UPDATE=(ENHS : MTHHFLOOR) 
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